unit UCor;

interface
    uses
      UGenerica;
    type
      Cor = class (Generica)

protected
      nome : string;
      composicao  : string;
      idcolor : integer;

public
  constructor Create;
  destructor Destroy;

  procedure setNome (vNome : string);
  procedure setComposicao (vComposicao : string);
  procedure setIDColor (vIDColor : integer);

  function getNome  : string;
  function getComposicao   : string;
  function getIDColor : integer;
end;

implementation

{ Pais }

constructor Cor.Create;
begin
    inherited;
end;

destructor Cor.Destroy;
begin
    inherited;
end;

function Cor.getComposicao: string;
begin
    Result := composicao;
end;

function Cor.getIDColor: integer;
begin
  Result := idcolor;
end;

function Cor.getNome: string;
begin
    Result := nome;
end;

procedure Cor.setComposicao(vComposicao: string);
begin
    composicao := vComposicao;
end;

procedure Cor.setIDColor(vIDColor: integer);
begin
   idcolor := vIDColor;
end;

procedure Cor.setNome(vNome: string);
begin
    nome := vNome;
end;

end.

